object frmCheckAdmin: TfrmCheckAdmin
  Left = 362
  Top = 256
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = #31649#29702#21592
  ClientHeight = 129
  ClientWidth = 229
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  DesignSize = (
    229
    129)
  PixelsPerInch = 96
  TextHeight = 13
  object btnOk: TcxButton
    Left = 60
    Top = 95
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = #30830#23450
    Default = True
    ModalResult = 1
    TabOrder = 2
    OnClick = btnOkClick
  end
  object btnCancel: TcxButton
    Left = 143
    Top = 95
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Cancel = True
    Caption = #21462#28040
    ModalResult = 2
    TabOrder = 5
  end
  object cxLabel1: TcxLabel
    Left = 41
    Top = 31
    Caption = #31649#29702#21592
  end
  object cxLabel2: TcxLabel
    Left = 53
    Top = 63
    Caption = #23494#30721
  end
  object edtPassword: TcxTextEdit
    Left = 87
    Top = 63
    Properties.EchoMode = eemPassword
    Properties.PasswordChar = '*'
    TabOrder = 0
    Width = 121
  end
  object edtUser: TcxLookupComboBox
    Left = 87
    Top = 28
    Properties.DropDownListStyle = lsFixedList
    Properties.KeyFieldNames = 'UI_UserID'
    Properties.ListColumns = <
      item
        Caption = #32534#30721
        FieldName = 'UI_UserCode'
      end
      item
        Caption = #21517#31216
        FieldName = 'UI_UserName'
      end>
    Properties.ListFieldIndex = 1
    Properties.ListOptions.SyncMode = True
    Properties.ListSource = dsUser
    TabOrder = 1
    Width = 121
  end
  object qryUser: TUniQuery
    SQL.Strings = (
      'select * from ybc5..ts_usersinfo where ui_isadmin=1')
    Left = 12
    Top = 76
    object qryUserUI_UserID: TIntegerField
      FieldName = 'UI_UserID'
    end
    object qryUserUI_UserCode: TWideStringField
      FieldName = 'UI_UserCode'
      Size = 30
    end
    object qryUserUI_UserName: TWideStringField
      FieldName = 'UI_UserName'
      Size = 60
    end
    object qryUserUI_FilID: TIntegerField
      FieldName = 'UI_FilID'
    end
    object qryUserUI_Password: TWideStringField
      FieldName = 'UI_Password'
      Size = 50
    end
    object qryUserUI_ChangePassword: TBooleanField
      FieldName = 'UI_ChangePassword'
    end
    object qryUserUI_IsAdmin: TBooleanField
      FieldName = 'UI_IsAdmin'
    end
  end
  object dsUser: TDataSource
    DataSet = qryUser
    Left = 16
    Top = 32
  end
end
